home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / 1st_ins.zip / INSTALL.INS < prev    next >
Text File  |  1993-05-28  |  17KB  |  474 lines
  1.         SPARKWARE
  2.  
  3.     ASSIGN(Default$,0,2)
  4.         SAVER 180
  5.  
  6.         IF EXIST "1ST.DOC" THEN GOTO TOP
  7.         ASSIGN(Value$,0,"1ST-110B.ZIP")
  8.         CLS
  9.         GOSUB FILE_CHECK1
  10.         CLS
  11.         EXIT
  12.  
  13. :TOP
  14.         DISPLAY OFF
  15.         CLS
  16.         CURSOR OFF
  17.         BLINK OFF
  18.         FILLSCRN(1,1,25,80,32,31,112)
  19.         BOX(3,5,23,75,48,7,1,1)
  20.         CLEAR_BOXES
  21.         SCREEN(1,SAVE)
  22.         DIALOG_BOX(1,0,0,1,"      About      ",4,51,112,112,1,116,15)
  23.         DIALOG_BOX(2,0,0,2,"    What's new   ",9,51,112,112,1,116,15)
  24.         DIALOG_BOX(3,0,0,3,"     Install     ",14,51,112,112,1,116,15)
  25.         DIALOG_BOX(4,0,27,4,"      Quit       ",19,51,112,112,1,116,15)
  26.         QPRINT("Thank you for purchasing @READER@ 1.11",5,7,49,-1)
  27.         QPRINT("This program will install @READER@",10,7,-1)
  28.         QPRINT("onto your computer's hard disk.  It")
  29.         QPRINT("will also update an older release of")
  30.         QPRINT("@READER@ to this new release version.")
  31.         QPRINT("Press the highlighted letter or",16,7,-1)
  32.         QPRINT("click your mouse on a button to")
  33.         QPRINT("make a selection.")
  34.         APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
  35.         DISPLAY ON
  36.         GET(Choice$,Default$)
  37.     ASSIGN(Default$,0,3)
  38.         CLEAR_BOXES
  39.         ON Choice$ GOTO ABOUT,NOTES,INSTALL,QUIT
  40.  
  41. :QUIT
  42.         CLS(7)
  43.         BOX(7,20,11,60,48,112,1,1)
  44.         QPRINT("Thank you for using @READER@",9,26,62,112)
  45.         IF NOT COMPARE(InstallOk$,True) THEN GOTO QUIT1
  46.         QPRINT("Type '1ST' to run @READER@",14,-1,-1)
  47.         QPRINT("Click on '1stTutor' to view the @READER@ tutorial",15,-1,-1)
  48. :QUIT1
  49.         LOCATE 22,1
  50.         CURSOR ON
  51.         EXIT
  52.  
  53. :ABOUT
  54.         DISPLAY OFF
  55.         BOX(3,5,23,75,240,7,1,1)
  56.         QPRINT("@READER@ Install",5,-1,-1)
  57.         QPRINT("─────────────────")
  58.         QPRINT("Copyright 1993 by Mark Herring",9)
  59.         QPRINT("All Rights Reserved")
  60.         QPRINT("Sparkware",12)
  61.         QPRINT("Post Office Box 386")
  62.         QPRINT("Hendersonville, Tennessee   37077")
  63.         QPRINT("(615) 230-8822 (BBS)",16)
  64.         QPRINT("(615) 230-MAIL (Voice)")
  65.         QPRINT("Press any key to continue",21,0,241,15)
  66.         DISPLAY ON
  67.         PAUSE
  68.         GOTO TOP
  69.  
  70. :NOTES
  71.         LIST "WHATS.NEW"
  72.         GOTO TOP
  73.  
  74. :INSTALL
  75.     ASSIGN(Install_Type$,0,0)
  76.         DISPLAY OFF
  77.         BOX(3,5,23,75,48,7,1,1)
  78.         QPRINT("Installing @READER@",5,7,49,-1)
  79.         QPRINT("You may choose to install the complete",8,7,48,7)
  80.         APRINT("@READER@ system, print the manuals, or")
  81.         QPRINT("only install the add-in systems.")
  82.         QPRINT("Press the highlighted letter or",14,7,-1)
  83.         QPRINT("click your mouse on a button to")
  84.         QPRINT("make a selection.")
  85.         APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
  86.         DIALOG_BOX(1,0,0,1," Complete install ",4,50,112,112,1,116,15)
  87.         DIALOG_BOX(2,0,0,2,"   Print manuals  ",9,50,112,112,1,116,15)
  88.         DIALOG_BOX(3,0,0,3,"     Add-ins      ",14,50,112,112,1,116,15)
  89.         DIALOG_BOX(4,0,27,4,"       Quit       ",19,50,112,112,1,116,15)
  90.         DISPLAY ON
  91.         GET(Choice$,4)
  92.         CLEAR_BOXES
  93.         ON Choice$ GOTO FULL_INSTALL,MANUALS,ADD-INS
  94.         GOTO TOP
  95.  
  96. :FULL_INSTALL
  97.     ASSIGN(Install_Type$,0,1)
  98.         GOSUB GET_TARGET
  99.  
  100.         IF NOT EXIST Target$+"SYSTEMS.DAT" THEN GOTO NEW_INSTALL
  101.         ASSIGN(Update$,0,True)
  102.         ASSIGN(SetFile$,0,Target$+"1ST.SET")
  103.         SET_LOAD SetFile$
  104.         SWITCH(10,OFF)
  105.         SET_SAVE SetFile$
  106.         OPEN("B",1,SetFile$)
  107.         SEEK(1,&H159)
  108.         ASSIGN(Value$,-60,"QSZ portx %4 sz %3 /NOCLS /CURSOR_OFF /NS")
  109.         WRITE(1,Value$)
  110.         SEEK(1,&H195)
  111.         ASSIGN(Value$,-60,"QSZ portx %4 rz %3 /NOCLS /CURSOR_OFF /NS")
  112.         WRITE(1,Value$)
  113.         SEEK(1,&H500)
  114.         LITERAL ASSIGN(Value$,-50,"@API$(5)QZIP %1 %2 /NOCLS /CURSOR_OFF")
  115.         WRITE(1,Value$)
  116.         SEEK(1,&H700)
  117.         LITERAL ASSIGN(Value$,-50,"@API$(5)QUNZIP %1 %2 %3 /NOCLS /CURSOR_OFF")
  118.         WRITE(1,Value$)
  119.         CLOSE 1
  120.         SCREEN(1,RESTORE)
  121.         QPRINT("Installing updated system files",6,-1,-1)
  122.         UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
  123.         UP_SCRIPT Target$+"SYSTEMS.DAT"
  124.         ASSIGN(InstallOk$,0,True)
  125.         SCREEN(1,RESTORE)
  126.         DISPLAY OFF
  127.         QPRINT("This new release of 1stReader changes many of the switch",10,12,-1)
  128.         QPRINT("definitions from previous releases.  You *MUST* use the")
  129.         QPRINT("SETUP/SWITCHES command buttons from the opening screen")
  130.         QPRINT("in order to configure your system correctly.")
  131.         QPRINT("Press any key to continue...",21,-1,-1)
  132.         DISPLAY ON
  133.         BEEP
  134.         PAUSE
  135.         GOTO SCRIPTS
  136.  
  137. :NEW_INSTALL
  138.         QPRINT("Creating system subdirectory...",19,10,-1)
  139.         MKDIR Target$
  140.         QPRINT("Creating scripts subdirectory...")
  141.         MKDIR Scripts$
  142.         QPRINT("Creating packets subdirectory...")
  143.         MKDIR Packets$
  144.         SCREEN(1,RESTORE)
  145.         QPRINT("Installing main system files",6,-1,-1)
  146.         UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
  147.         UNPACK "NEWSYS.ZIP" TO Target$ "*.*"
  148.  
  149. :SCRIPTS
  150.         SCREEN(1,RESTORE)
  151.         QPRINT("Installing script files",6,-1,-1)
  152.         UNPACK "SCRIPTS.ZIP" TO Scripts$ "*.*"
  153.         SCREEN(1,RESTORE)
  154.         QPRINT("Copying installation programs...",6,-1,-1)
  155.         QPRINT("1stReader keyfile",9,24,-1)
  156.         COPY("*.KEY",Target$)
  157.         QPRINT("Copying the installation programs...")
  158.         COPY("INSTALL.EXE",Target$)
  159.         COPY("*.INS",Target$)
  160.         QPRINT("Copying QUNZIP.EXE...")
  161.         COPY("QUNZIP.EXE",Target$)
  162.         QPRINT("Copying the WHATS.NEW file...")
  163.         COPY("WHATS.NEW",Target$)
  164.         IF COMPARE(Update$,True) THEN GOTO MANUALS
  165.  
  166.         QPRINT("Copying the tutorial packet")
  167.         COPY("SPARKY.QTU",Packets$)
  168.         COPY("SYSTEMS.DAT",Target$)
  169.         GET_BBS
  170.  
  171.         DISPLAY OFF
  172.         SCREEN(1,RESTORE)
  173.         QPRINT("Thank you for purchasing @READER@!",5,9,49,15)
  174.         QPRINT("Before you can run @READER@ we first",11,9,-1)
  175.         QPRINT("need to know a bit about your computer")
  176.         QPRINT("system.  You need to tell us which")
  177.         QPRINT("serial port is used to connect your")
  178.         QPRINT("system to your modem.")
  179.         QPRINT("Please make your selection now...",21,9,62,15)
  180.         DIALOG_BOX(1,0,49,"3F8,4","     Port 1      ",4,51,112,112,0,116,15)
  181.         DIALOG_BOX(2,0,50,"2F8,3","     Port 2      ",8,51,112,112,0,116,15)
  182.         DIALOG_BOX(3,0,51,"3E8,4","     Port 3      ",12,51,112,112,0,116,15)
  183.         DIALOG_BOX(4,0,52,"2E8,3","     Port 4      ",16,51,112,112,0,116,15)
  184.         DIALOG_BOX(5,0,27,"0","    No modem     ",20,51,112,112,0,116,15)
  185.         DISPLAY ON
  186.         GET(Serial$,1)
  187.         CLEAR_BOXES
  188.  
  189.         IF COMPARE (Serial$,"0") THEN GOTO DISPLAY
  190.         DISPLAY OFF
  191.         SCREEN(1,RESTORE)
  192.         QPRINT("How fast is your modem?",5,9,49,15)
  193.         QPRINT("@READER@ needs to know the maximum",11,9,-1)
  194.         QPRINT("speed your modem supports.  If you")
  195.         QPRINT("are unsure about just how fast your")
  196.         QPRINT("modem will transmit data over the")
  197.         QPRINT("telephone line we recommend you use")
  198.         QPRINT("'1200 baud' for your modem.")
  199.         QPRINT("A)",5,52,62,15)
  200.         QPRINT("B)",9,52,62,15)
  201.         QPRINT("C)",13,52,62,15)
  202.         QPRINT("D)",17,52,62,15)
  203.         QPRINT("E)",21,52,62,15)
  204.         QPRINT("Press (A-E) to select your modem speed...",21,9,62,15)
  205.         DIALOG_BOX(1,0,1065,"1200","  1200 baud  ",4,56,112,112,0,116,15)
  206.         DIALOG_BOX(2,0,1066,"2400","  2400 baud  ",8,56,112,112,0,116,15)
  207.         DIALOG_BOX(3,0,1067,"9600","  9600 baud  ",12,56,112,112,0,116,15)
  208.         DIALOG_BOX(4,0,1068,"19200"," 19,200 baud ",16,56,112,112,0,116,15)
  209.         DIALOG_BOX(5,0,1069,"38400"," 38,400 baud ",20,56,112,112,0,116,15)
  210.         DISPLAY ON
  211.         GET(Baud$,1)
  212.         CLEAR_BOXES
  213.  
  214.         PICK (ModemInit$,"Select your modem type (use the arrow keys to view more modems): ","MODEMS.DAT",102,1,50,51,50,30,7)
  215.  
  216.         DISPLAY OFF
  217.         SCREEN(1,RESTORE)
  218.         QPRINT("Which type of telephone service do you have?",5,9,49,15)
  219.         QPRINT("I have touch tone service",9,19,-1)
  220.         QPRINT("Touch tone service but I must dial '9' to 'get out'",13,19,-1)
  221.         QPRINT("I have rotary service",17,19,-1)
  222.         QPRINT("Rotary service but I must dial '9' to 'get out'",21,19,-1)
  223.         DIALOG_BOX(1,0,0,"ATDT"," 1 ",8,9,112,112,0,116,15)
  224.         DIALOG_BOX(2,0,0,"ATDT 9,"," 2 ",12,9,112,112,0,116,15)
  225.         DIALOG_BOX(3,0,0,"ATDP"," 3 ",16,9,112,112,0,116,15)
  226.         DIALOG_BOX(4,0,0,"ATDP 9,"," 4 ",20,9,112,112,0,116,15)
  227.         DISPLAY ON
  228.         GET(DialString$,1)
  229.         CLEAR_BOXES
  230.  
  231. :DISPLAY
  232.         DISPLAY OFF
  233.         SCREEN(1,RESTORE)
  234.     ASSIGN(Value$,0,1)
  235.     IF COLOR THEN ASSIGN(Value$,0,2)
  236.         QPRINT("Which type of monitor do you use?",5,10,49,15)
  237.         QPRINT("Please select your choice...",21,10,62,15)
  238.         DIALOG_BOX(1,0,77,"OFF","   I use a MONOCHROME display   ",9,23,112,112,1,116,15)
  239.         DIALOG_BOX(2,0,67,"ON","      I use a COLOR display     ",15,23,112,112,1,116,15)
  240.         DISPLAY ON
  241.         GET(Display$,Value$)
  242.         CLEAR_BOXES
  243.  
  244.         DISPLAY OFF
  245.         SCREEN(1,RESTORE)
  246.     ASSIGN(Value$,0,2)
  247.     IF COMPARE(_Mouse$,-1) THEN ASSIGN(Value$,0,1)
  248.         QPRINT("Do you use a mouse?",5,10,49,15)
  249.         QPRINT("Please select your choice...",21,10,62,15)
  250.         DIALOG_BOX(1,0,89,"ON","       Yes, I use a mouse       ",9,23,112,112,1,116,15)
  251.         DIALOG_BOX(2,0,78,"OFF","    No, I do not use a mouse    ",15,23,112,112,1,116,15)
  252.         DISPLAY ON
  253.         GET(Mouse$,Value$)
  254.         CLEAR_BOXES
  255.  
  256.         DISPLAY OFF
  257.         SCREEN(1,RESTORE)
  258.         QPRINT("Signatures",5,8,49,15)
  259.         QPRINT("Messages you leave with @READER@ can automatically have your name",10,8,-1)
  260.         QPRINT("placed on the bottom by the system.  If you would like to have 1st")
  261.         QPRINT("do this for you, please enter your FIRST name only using upper and")
  262.         QPRINT("lower case letters.")
  263.         QPRINT("My first name is: ",16,8,-1)
  264.         DISPLAY ON
  265.         ASK(Signature$,16,26,40,15,112)
  266.  
  267.         BOX(10,20,14,60,112,112,1,1,"Updating files...")
  268.         CHDIR Target$
  269.         SET_LOAD "1ST.SET"
  270.         SET(NewUser,"XX")
  271.         SET(SerialPort,Serial$)
  272.         SET(MaxBaudRate,Baud$)
  273.         SET(Init,ModemInit$)
  274.         SET(PreFix1,DialString$)
  275.         SET(PackDir,Target$+"PACKETS")
  276.         SET(RepDir,Target$+"PACKETS")
  277.         SET(DownLoads,Target$+"DOWNLOAD")
  278.         SET(Program,Target$+"PROGRAMS")
  279.         SET(WorkDir,Target$+"WORKDIR")
  280.         SET(Signature,Signature$)
  281.         SWITCH(4,Display$)
  282.         SWITCH(11,Mouse$)
  283.         SET_SAVE "1ST.SET"
  284.         ASSIGN(InstallOk$,0,True)
  285.         GETBBS
  286.         PAUSE 1
  287.  
  288. :MANUALS
  289.         GOSUB GET_TARGET
  290.         CHDIR Target$
  291.         DISPLAY OFF
  292.         SCREEN(1,RESTORE)
  293.         QPRINT("Please select which manuals you wish to print...",5,-1,-1)
  294.         DIALOG_BOX(1,0,66,1,"     Print the BEGINNER's manual    ",8,20,112,112,1,116,15)
  295.         DIALOG_BOX(2,0,65,2,"   Print the ADVANCED user's guide  ",13,20,112,112,1,116,15)
  296.         DIALOG_BOX(3,0,27,3,"               Quit                 ",18,20,112,112,1,116,15)
  297.         DISPLAY ON
  298.         GET (Value$,3)
  299.         CLEAR_BOXES
  300.         IF COMPARE(Value$,3) THEN GOTO MANUALS_DONE
  301.         ON Value$ GOTO NOVICE,ADVANCED
  302.  
  303. :NOVICE
  304.     ASSIGN(FileSpec$,0,"1ST.DOC")
  305.     ASSIGN(Value$,0,"Printing the beginner's manual now...")
  306.         GOTO PRINT_MANUAL
  307.  
  308. :ADVANCED
  309.     ASSIGN(FileSpec$,0,"ADVANCED.DOC")
  310.     ASSIGN(Value$,0,"Printing the advanced user's guide now...")
  311.  
  312. :PRINT_MANUAL
  313.         SCREEN(1,RESTORE)
  314.         BOX(10,10,14,70,112,112,1,1,Value$)
  315.         APRINT("Press the @X00@X(F0,0F) ESC @XFF key to quit",17,27,-1)
  316.         LPRINT_FILE FileSpec$
  317.         GOTO MANUALS
  318.  
  319. :MANUALS_DONE
  320.         CLEAR_BOXES
  321.         IF COMPARE(Install_Type$,0) THEN GOTO DONE
  322.  
  323. :ADD-INS
  324.         GOSUB GET_TARGET
  325.         CHDIR Target$
  326.         DISPLAY OFF
  327.         SCREEN(1,RESTORE)
  328.         QPRINT("Please select which 'add-ins' you wish to install...",1,-1,-1)
  329.         DIALOG_BOX(1,0,0,1,"     Multimedia Support     ",4,24,112,112,1,116,15)
  330.         DIALOG_BOX(2,0,0,2,"      Graphics examples     ",9,24,112,112,1,116,15)
  331.         DIALOG_BOX(3,0,0,3,"       Spell Checking       ",14,24,112,112,1,116,15)
  332.         DIALOG_BOX(4,0,27,4,"           Quit             ",19,24,112,112,1,116,15)
  333.         DISPLAY ON
  334.         GET (AddIn$,4)
  335.         CLEAR_BOXES
  336.         IF COMPARE(AddIn$,4) THEN GOTO DONE
  337.         ON AddIn$ GOTO MME,GRAPHICS,SPELL
  338.  
  339. :MME
  340.         ASSIGN(Temp$,0,"1ST-MME")
  341.     ASSIGN(Description$,0,"Multimedia support")
  342.         GOSUB FILE_CHECK
  343.         IF Compare(Flag$,False) THEN GOTO ADD-INS
  344.         GOTO ADD-INS_INSTALL
  345.  
  346. :GRAPHICS
  347.         ASSIGN(Temp$,0,"1ST-GRPH")
  348.     ASSIGN(Description$,0,"Graphics examples")
  349.         GOSUB FILE_CHECK
  350.         IF Compare(Flag$,False) THEN GOTO ADD-INS
  351.         GOTO ADD-INS_INSTALL
  352.  
  353. :SPELL
  354.         ASSIGN(Temp$,0,"1STSPELL")
  355.     ASSIGN(Description$,0,"Spell checking")
  356.         GOSUB FILE_CHECK
  357.         IF Compare(Flag$,False) THEN GOTO ADD-INS
  358.  
  359. :ADD-INS_INSTALL
  360.         SCREEN(1,RESTORE)
  361.     ASSIGN(FileSpec$,0,Temp$+".NEW")
  362.         ASSIGN(FileSpec$,0,"@INSDRIVE@:"+FileSpec$)
  363.     ASSIGN(Title$,0,Description$)
  364.         GOSUB SHOW
  365.         DISPLAY OFF
  366.     ASSIGN(Title$,0,"Do you wish to install "+Description$)
  367.         BOX(8,10,12,70,112,112,1,1,Title$)
  368.         DIALOG_BOX(1,0,0,1,"   Yes   ",16,10,112,112,1,116,15)
  369.         DIALOG_BOX(2,0,27,2,"   No   ",16,59,112,112,1,116,15)
  370.         DISPLAY ON
  371.         GET (Ask$,1)
  372.         CLEAR_BOXES
  373.         IF COMPARE(Ask$,2) THEN GOTO ADD-INS
  374.         SCREEN(1,RESTORE)
  375.         QPRINT(Description$,5,-1,-1)
  376.         ON AddIn$ GOTO INS_MME,INS_GRAPHICS,INS_SPELL
  377.  
  378. :INS_MME
  379.         MKDIR Target$+"MME"
  380.         UNPACK "@INSDRIVE@:1ST-MME.ZIP" TO Target$+"MME" "*.*"
  381.         SET_LOAD Target$+"1ST.SET"
  382.         SWITCH(10,"ON")
  383.         SET_SAVE Target$+"1ST.SET"
  384.         SCREEN(2,SAVE)
  385.         BOX(10,10,14,70,79,112,1,1,"Welcome to 1stReader MultiMedia!")
  386.         VOC_FILE "MME\$$INTRO.VOC"
  387.         SCREEN(2,RESTORE)
  388.         GOTO ADD-INS
  389.  
  390. :INS_GRAPHICS
  391.         MKDIR Target$+"GRAPHICS"
  392.         UNPACK "@INSDRIVE@:1ST-GRPH.ZIP" TO Target$+"GRAPHICS" "*.*"
  393.         GOTO ADD-INS
  394.  
  395. :INS_SPELL
  396.         UNPACK "@INSDRIVE@:1STSPELL.ZIP" TO Target$ "*.*"
  397.         GOTO ADD-INS
  398.  
  399. :DONE
  400.     ASSIGN(Default$,0,4)
  401.         GOTO TOP
  402.  
  403. :SHOW
  404.         IF NOT EXIST(FileSpec$) THEN RETURN
  405.         SCREEN(3,SAVE)
  406.         DISPLAY OFF
  407.         OPEN("I",1,FileSpec$)
  408.         FILLSCRN(1,1,25,80,32,31,112)
  409.         BOX(4,5,19,76,7,7,1,0)
  410.         QPRINT(Title$,2,-1,-1)
  411.         BLINK ON
  412.         DISPLAY ON
  413.         SET_WINDOW(5,7,18,74)
  414.         ATTRIBUTE(7)
  415.  
  416. :SHOW_LOOP
  417.         DISPLAY OFF
  418.         MREAD(1,14)
  419.         SCREEN(2,SAVE)
  420.         BOX(21,5,23,76,112,15,1,1,"Press any key to continue or [ESC] to quit")
  421.         DISPLAY ON
  422.         PAUSE
  423.         SCREEN(2,RESTORE)
  424.         IF LASTKEY=27 THEN GOTO SHOW_DONE
  425.         IF NOT EOF(1) THEN GOTO SHOW_LOOP
  426.  
  427. :SHOW_DONE
  428.         CLOSE 1
  429.         SET_WINDOW(1,1,25,80)
  430.         SCREEN(3,RESTORE)
  431.         RETURN
  432.  
  433. :GET_TARGET
  434.         IF NOT COMPARE(Target$,"") THEN RETURN
  435.         SCREEN(1,RESTORE)
  436.         QPRINT("Installing @READER@",5,10,49,15)
  437.         QPRINT("Before we can begin you will need to tell @READER@",10,10,-1)
  438.         QPRINT("where you wish to install the program on your computer.")
  439.         QPRINT("We recommend that you use the default location suggested")
  440.         QPRINT("below unless you wish to install the system elsewhere.")
  441.         QPRINT("Location to install @READER@:",16,10,63,15)
  442.     ASSIGN(Target$,0,"@DRIVE@:\1ST\")
  443.         ASK(Target$,16,41,30,15,112,UPPER)
  444.         IF LASTKEY=27 THEN RETURN TOP
  445.         IF COMPARE(Target$,"") THEN RETURN TOP
  446.         DCHECK Target$
  447.         ASSIGN(Scripts$,0,Target$+"SCRIPTS\")
  448.         ASSIGN(Packets$,0,Target$+"PACKETS\")
  449.         RETURN
  450.  
  451. :FILE_CHECK
  452.         ASSIGN(Flag$,0,True)
  453.         ASSIGN(Value$,0,Temp$+".ZIP")
  454.         IF EXIST Value$ THEN RETURN
  455.  
  456. :FILE_CHECK1
  457.         DISPLAY OFF
  458.         BOX(5,10,21,70,7,7,1,0)
  459.         QPRINT(Value$,7,-1,-1)
  460.         QPRINT("INSTALL could not locate this archive in the current",10,14,-1)
  461.         QPRINT("subdirectory.  You might need to download this file")
  462.         QPRINT("from the same bulletin board system where the 1stReader")
  463.         QPRINT("archives are located.")
  464.         QPRINT("")
  465.         QPRINT("If you need help please ask your sysop to locate this")
  466.         QPRINT("file for you.")
  467.         QPRINT("Press any key to continue...",19,-1,-1)
  468.         DISPLAY ON
  469.         BEEP
  470.         PAUSE
  471.         ASSIGN(Flag$,0,False)
  472.         RETURN
  473.  
  474.